Integration Stretch

h = 1 (slider from 0 to 10, step 0.1)
f(x) = (x^(2) * h)
H = Point(xAxis)
a: x(H)
D = Point(yAxis)
C = Point(yAxis)
k = 1 (slider from -0.2 to 3, step 0.1)
g: y = y(D)
c:=y = f(x - a)
e: y = y(C)
d:=y = f(x / k - a)
A = Intersect(c, d, 2)
B = Intersect(c, d, 1)
E = Intersect(c, e, 1)
F = Intersect(d, g, 1)
b = IntegralBetween(f(x / k - a), f(x - a), x(A), x(B))
text2: "f(x)=" + (LaTeX[c]) + ""
ub: x(B)
text1: "g(x)=" + (LaTeX[d]) + ""
text3: "$ \int_{0}^{" + (LaTeX[ub]) + "}{ }[g(\frac{x}{" + (LaTeX[k]) + "}-" + (LaTeX[a]) + ")-f(x-" + (LaTeX[a]) + ")]dx =" + (LaTeX[b]) + "$"
lb: x(A)